unit UConpare;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, FContasReceberFt, FContasPagarFt, jpeg, ExtCtrls;

type
  TFConpare = class(TForm)
    menuConpare: TMainMenu;
    miCadastro: TMenuItem;
    miLancamentos: TMenuItem;
    miContasReceber: TMenuItem;
    miContasPagar: TMenuItem;
    miSobre: TMenuItem;
    miRetiradas: TMenuItem;
    miDepositos: TMenuItem;
    imagemBackground: TImage;
    miUsuarios: TMenuItem;
    miBancos: TMenuItem;
    miRelatorios: TMenuItem;
    miResumoGeral: TMenuItem;
    miRelatorioContasReceber: TMenuItem;
    miRelatorioContasPagar: TMenuItem;
    miAgenda: TMenuItem;
    procedure miContasReceberClick(Sender: TObject);
    procedure miContasPagarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FConpare: TFConpare;

implementation

{$R *.dfm}

procedure TFConpare.miContasReceberClick(Sender: TObject);
begin
   with TFContasReceberFt.Create(self) do
   begin
      ShowModal;
      Free;
   end;
end;

procedure TFConpare.miContasPagarClick(Sender: TObject);
begin
   with TFContasPagarFt.Create(self) do
   begin
      ShowModal;
      Free;
   end;
end;

end.
